home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Multimedia / A-P / Net Game.sit / Net Game folder / Net Game / SR114M.DXR / 00341_setup.ls < prev    next >
Encoding:
Text File  |  1994-10-24  |  8.5 KB  |  201 lines
  1. on enterFrame
  2.   unLoad("first", "last")
  3.   unLoad(cast 129, 165)
  4.   unLoad(cast "h1", "names")
  5.   unLoad(cast "pad_text")
  6. end
  7.  
  8. on exitFrame
  9.   global total_pages, current_page, new_page, last_page, loaded_page, active, inactive, A_text_cast, B_text_cast, script_page_cast, scribble, scribble_a, scribble_b, scribble_status, scribble_status_a, scribble_status_b, scribble_now, scribble_type, num_scribbles, pad_total_pages, pad_current_page, pad_new_page, pad_last_page, pad_loaded_page, pad_active, pad_inactive, J_text_cast, K_text_cast, pad_page_cast, pad, pages_read, pad_section_cast, menu_on, p_arrows_close, p_arrows_open, p_arrow_down, p_arrow_left, p_arrow_right, p_arrow_turn, p_hand_closed, p_hand_open, p_hand_up, p_menu, p_mouth_open, p_mouth_closed, p_scribble, arrow_up, kernel, kernel_limit, popped, kernel_on, k_offset, pop_eaten, kernels_left, pages_with_kernels, kernel_a, kernel_b, kernel_0, kernel_H, kernel_V, kernel_offset
  10.   set the trace to 0
  11.   set tapebutton to the number of cast "tapebutton"
  12.   set tapeoff to the number of cast "tapeoff.256"
  13.   set tapepush to the number of cast "tapepush.256"
  14.   set button to 0
  15.   set the picture of cast tapebutton to the picture of cast tapeoff
  16.   set cookie to the number of cast "cookie"
  17.   set cookie_status to 1
  18.   set last_cookie_frame to 5
  19.   set the picture of cast cookie to the picture of cast (cookie + cookie_status)
  20.   set current_page to 0
  21.   set last_page to 0
  22.   set loaded_page to -1
  23.   set new_page to 0
  24.   set script_page_cast to the number of cast "script page"
  25.   put " " into field script_page_cast
  26.   set active to "A"
  27.   set inactive to "B"
  28.   set A_text_cast to the number of cast "A text"
  29.   set B_text_cast to the number of cast "B text"
  30.   set num_scribbles to 0
  31.   set scribble_status to []
  32.   set scribble to the number of cast "s0"
  33.   set scribble_a to the number of cast "sa"
  34.   set scribble_b to the number of cast "sb"
  35.   repeat with i = 1 to total_pages
  36.     append(scribble_status, 0)
  37.   end repeat
  38.   set the picture of cast scribble_a to the picture of cast (scribble + 0)
  39.   set the picture of cast scribble_b to the picture of cast (scribble + 0)
  40.   set scribble_status_a to 0
  41.   set scribble_status_b to 0
  42.   set scribble_now to 0
  43.   set scribble_type to 0
  44.   set pad_total_pages to count(pad)
  45.   set pad_current_page to 0
  46.   set pad_last_page to 0
  47.   set pad_loaded_page to -1
  48.   set pad_new_page to -1
  49.   set pad_page_cast to the number of cast "pad page"
  50.   set pad_section_cast to the number of cast "section"
  51.   put " " into field pad_page_cast
  52.   put " " into field pad_section_cast
  53.   set pad_active to "J"
  54.   set pad_inactive to "K"
  55.   set J_text_cast to the number of cast "J text"
  56.   set K_text_cast to the number of cast "K text"
  57.   set pages_read to 0
  58.   set menu_on to 0
  59.   set p_arrows_close to the number of cast "p_arrows_close"
  60.   set p_arrows_open to the number of cast "p_arrows_open"
  61.   set p_arrow_down to the number of cast "p_arrow_down"
  62.   set p_arrow_left to the number of cast "p_arrow_left"
  63.   set p_arrow_right to the number of cast "p_arrow_right"
  64.   set p_arrow_turn to the number of cast "p_arrow_turn"
  65.   set p_hand_closed to the number of cast "p_hand_closed"
  66.   set p_hand_open to the number of cast "p_hand_open"
  67.   set p_hand_up to the number of cast "p_hand_up"
  68.   set p_menu to the number of cast "p_menu"
  69.   set p_mouth_open to the number of cast "p_mouth_open"
  70.   set p_mouth_closed to the number of cast "p_mouth_closed"
  71.   set p_scribble to the number of cast "p_scribble"
  72.   set p_arrow_up to the number of cast "p_arrow_up"
  73.   set pop_eaten to 0
  74.   set k_offset to 0
  75.   set kernel_on to 0
  76.   set kernel to 41
  77.   set kernel_limit to 42
  78.   set kernel_0 to the number of cast "kernel_0"
  79.   set kernel_a to the number of cast "kernel_a"
  80.   set kernel_b to the number of cast "kernel_b"
  81.   set the picture of cast kernel_a to the picture of cast kernel_0
  82.   set the picture of cast kernel_b to the picture of cast kernel_0
  83.   set pages_with_kernels to []
  84.   set kernel_H to []
  85.   set kernel_V to []
  86.   set kernel_offset to []
  87.   set popped to 0
  88.   set the randomSeed to the timer
  89.   repeat with i = 1 to total_pages
  90.     append(pages_with_kernels, 0)
  91.     append(kernel_H, 0)
  92.     append(kernel_V, 0)
  93.     append(kernel_offset, 0)
  94.   end repeat
  95.   set kernels_left to 20
  96.   repeat while count([2, 5, 8, 13, 14, 21, 30, 48, 54, 67, 80, 93, 106, 132, 141, 158, 160, 171, 180, 186]) <= 1
  97.     set i to getAt(ERROR, ERROR)
  98.     setAt(pages_with_kernels, i, 2)
  99.     setAt(kernel_offset, i, (random(3) - 1) * 3)
  100.     setAt(kernel_H, i, random(290) + 220)
  101.     setAt(kernel_V, i, random(300) + 115)
  102.     -- ERROR: Expected eq or nteq!
  103.     set i to getAt(ERROR, ERROR + 1)
  104.     setAt(pages_with_kernels, i, 2)
  105.     setAt(kernel_offset, i, (random(3) - 1) * 3)
  106.     setAt(kernel_H, i, random(290) + 220)
  107.     setAt(kernel_V, i, random(300) + 115)
  108.     -- ERROR: Expected eq or nteq!
  109.     set i to getAt(ERROR, ERROR + 1)
  110.     setAt(pages_with_kernels, i, 2)
  111.     setAt(kernel_offset, i, (random(3) - 1) * 3)
  112.     setAt(kernel_H, i, random(290) + 220)
  113.     setAt(kernel_V, i, random(300) + 115)
  114.     -- ERROR: Expected eq or nteq!
  115.     set i to getAt(ERROR, ERROR + 1)
  116.     setAt(pages_with_kernels, i, 2)
  117.     setAt(kernel_offset, i, (random(3) - 1) * 3)
  118.     setAt(kernel_H, i, random(290) + 220)
  119.     setAt(kernel_V, i, random(300) + 115)
  120.     -- ERROR: Expected eq or nteq!
  121.     repeat while ERROR <= (ERROR + 1)
  122.       set i to getAt(ERROR, ERROR)
  123.       setAt(pages_with_kernels, i, 2)
  124.       setAt(kernel_offset, i, (random(3) - 1) * 3)
  125.       setAt(kernel_H, i, random(290) + 220)
  126.       setAt(kernel_V, i, random(300) + 115)
  127.       -- ERROR: Expected eq or nteq!
  128.       set i to getAt(ERROR, ERROR + 1)
  129.       setAt(pages_with_kernels, i, 2)
  130.       setAt(kernel_offset, i, (random(3) - 1) * 3)
  131.       setAt(kernel_H, i, random(290) + 220)
  132.       setAt(kernel_V, i, random(300) + 115)
  133.       -- ERROR: Expected eq or nteq!
  134.       set i to getAt(ERROR, ERROR + 1)
  135.       setAt(pages_with_kernels, i, 2)
  136.       setAt(kernel_offset, i, (random(3) - 1) * 3)
  137.       setAt(kernel_H, i, random(290) + 220)
  138.       setAt(kernel_V, i, random(300) + 115)
  139.       -- ERROR: Expected eq or nteq!
  140.       set i to getAt(ERROR, ERROR + 1)
  141.       setAt(pages_with_kernels, i, 2)
  142.       setAt(kernel_offset, i, (random(3) - 1) * 3)
  143.       setAt(kernel_H, i, random(290) + 220)
  144.       setAt(kernel_V, i, random(300) + 115)
  145.       -- ERROR: Expected eq or nteq!
  146.       repeat while ERROR <= (ERROR + 1)
  147.         set i to getAt(ERROR, ERROR)
  148.         setAt(pages_with_kernels, i, 2)
  149.         setAt(kernel_offset, i, (random(3) - 1) * 3)
  150.         setAt(kernel_H, i, random(290) + 220)
  151.         setAt(kernel_V, i, random(300) + 115)
  152.         -- ERROR: Expected eq or nteq!
  153.         set i to getAt(ERROR, ERROR + 1)
  154.         setAt(pages_with_kernels, i, 2)
  155.         setAt(kernel_offset, i, (random(3) - 1) * 3)
  156.         setAt(kernel_H, i, random(290) + 220)
  157.         setAt(kernel_V, i, random(300) + 115)
  158.         -- ERROR: Expected eq or nteq!
  159.         set i to getAt(ERROR, ERROR + 1)
  160.         setAt(pages_with_kernels, i, 2)
  161.         setAt(kernel_offset, i, (random(3) - 1) * 3)
  162.         setAt(kernel_H, i, random(290) + 220)
  163.         setAt(kernel_V, i, random(300) + 115)
  164.         -- ERROR: Expected eq or nteq!
  165.         set i to getAt(ERROR, ERROR + 1)
  166.         setAt(pages_with_kernels, i, 2)
  167.         setAt(kernel_offset, i, (random(3) - 1) * 3)
  168.         setAt(kernel_H, i, random(290) + 220)
  169.         setAt(kernel_V, i, random(300) + 115)
  170.         -- ERROR: Expected eq or nteq!
  171.         repeat while ERROR <= (ERROR + 1)
  172.           set i to getAt(ERROR, ERROR)
  173.           setAt(pages_with_kernels, i, 2)
  174.           setAt(kernel_offset, i, (random(3) - 1) * 3)
  175.           setAt(kernel_H, i, random(290) + 220)
  176.           setAt(kernel_V, i, random(300) + 115)
  177.           -- ERROR: Expected eq or nteq!
  178.           set i to getAt(ERROR, ERROR + 1)
  179.           setAt(pages_with_kernels, i, 2)
  180.           setAt(kernel_offset, i, (random(3) - 1) * 3)
  181.           setAt(kernel_H, i, random(290) + 220)
  182.           setAt(kernel_V, i, random(300) + 115)
  183.           -- ERROR: Expected eq or nteq!
  184.           set i to getAt(ERROR, ERROR + 1)
  185.           setAt(pages_with_kernels, i, 2)
  186.           setAt(kernel_offset, i, (random(3) - 1) * 3)
  187.           setAt(kernel_H, i, random(290) + 220)
  188.           setAt(kernel_V, i, random(300) + 115)
  189.           -- ERROR: Expected eq or nteq!
  190.           set i to getAt(ERROR, ERROR + 1)
  191.           setAt(pages_with_kernels, i, 2)
  192.           setAt(kernel_offset, i, (random(3) - 1) * 3)
  193.           setAt(kernel_H, i, random(290) + 220)
  194.           setAt(kernel_V, i, random(300) + 115)
  195.           -- ERROR: Expected eq or nteq!
  196.         end repeat
  197.       end repeat
  198.     end repeat
  199.   end repeat
  200. end
  201.